@NullResponse @RapidCodeOn
@NullResponse @TyposOff
@NullResponse @RapidTextOn
@NullResponse @ShowImage[MissBlue/black.jpg] @LockImages 
@NullResponse @CheckFlag(BlackJerk_explained)
@SystemMessage Here are some informations and the rules about this game: 
(BJ_Rules)

@SystemMessage This is a simplified BlackJack game, based on the 'BlackJerk' scripts written by tigrotto.
@SystemMessage It's a strip-game, so you have to start it wearing some clothes, which exactly depends on the opponent.
@SystemMessage Both players - you and your opponent - start with 100 Dollar, and a specific amount of clothes.
@SystemMessage It doesn't matter which clothes you are wearing exactly, just the amount is important.
@SystemMessage Before every round you will be ask how much Dollar you want to bet, maximum is 60$, minimum is 5$.
@SystemMessage Once a player has no dollars left, she or you has to strip out of one piece of clothes and get paid for that by getting 100 Dollar from the opponent.
@SystemMessage You will have to defeat the first opponent to unlock the next opponent and so on.
@SystemMessage If you don't know the game BlackJack and it rules itself, do a quick search in the internet.
@SystemMessage Have fun!

@NullResponse @SetFlag(BlackJerk_explained)
(BlackJerk_explained)

@NullResponse @RapidCodeOn
@NullResponse @SetVar[marSubDollar]=[100]
@NullResponse @SetVar[marDommeDollar]=[100]

@NullResponse @SetVar[Sub_points]=[0] 
@NullResponse @SetVar[Domme_points]=[0] 
@NullResponse @SetVar[Sub_number_of_cards]=[0] 
@NullResponse @SetVar[Domme_number_of_cards]=[0] 


@NullResponse @Goto(marAfterMyNotes)

#############################################################################################################################


token

Noch ne Idee: Schwierigere Gegner: Einfach mit mehr Gold ausstatten!
---> Dann muss man die auswählen können, ... aber gerne auch Gegner 'freischalten'!
Also erstmal Miss T mit 100 Dollar besiegen, erst danach nächsten Gegner, vll mit 110 Dollar! dann 120 usw.
-> Da es zu wenige gibt mit 5, vll doch größere Schritte -> 150, 200, 250 usw...



#############################################################################################################################



(marAfterMyNotes)


@SystemMessage Do you want to read the rules again #SubName?
[yes] @SystemMessage Ok. @Goto(BJ_Rules)
[no] @SystemMessage Ok.
@DifferentAnswer @SystemMessage: Yes or No?





(selectOpponent)
@NullResponse @RapidCodeOn
@Flag(marBlackJackOpp02defeated) You have already defeated:
@Flag(marBlackJackOpp02defeated) Nicole in the shower @Goto(Opponent1)
@Flag(marBlackJackOpp01defeated) Mistress T @Goto(Opponent3)
@Flag(marBlackJackOpp03defeated) Lily Cameron - Battlestrip @Goto(Opponent4)
@Flag(marBlackJackOpp04defeated) Mindy Mink - Mom and sisters @Goto(AllDefeatedPlaceholder)



(AllDefeatedPlaceholder)
@NullResponse @Goto(Opponent2)




(Opponent1)
@SystemMessage Your opponent: Mistress T
@NullResponse @RapidCodeOn
@NullResponse @DommeNameTemp(Mistress T) @DommeAvatarTemp[rndAva\MissT_01.jpg]
@NullResponse @SetVar[marSBJ_SubClothes]=[5]
@NullResponse @SetVar[marSBJ_OpponentClothes]=[5]
@NullResponse @TempFlag(marBlackJackOpp01)
@NullResponse @Goto(OutputClothes)

(Opponent2)
@SystemMessage Your opponent: Nicole - Shower
@NullResponse @RapidCodeOn
@NullResponse @DommeNameTemp(Nicole) @DommeAvatarTemp[rndAva\NicoleDusche02.jpg]
@NullResponse @SetVar[marSBJ_SubClothes]=[3]
@NullResponse @SetVar[marSBJ_OpponentClothes]=[3]
@NullResponse @SetFlag(marBlackJackOpp02)
@NullResponse @Goto(OutputClothes)

(Opponent3)
@SystemMessage Your opponent: Lily Cameron - Battlestrip
@NullResponse @RapidCodeOn
@NullResponse @DommeNameTemp(Lily) @DommeAvatarTemp[rndAva\Lily01.jpg]
@NullResponse @SetVar[marSBJ_SubClothes]=[5]
@NullResponse @SetVar[marSBJ_OpponentClothes]=[5]
@NullResponse @TempFlag(marBlackJackOpp03)
@NullResponse @Goto(OutputClothes)

(Opponent4)
@SystemMessage Your opponent: Mindy Mink - Mom and sisters
@NullResponse @RapidCodeOn
@NullResponse @DommeNameTemp(Mindy) @DommeAvatarTemp[rndAva\Mindy01.jpg]
@NullResponse @SetVar[marSBJ_SubClothes]=[4]
@NullResponse @SetVar[marSBJ_OpponentClothes]=[4]
@NullResponse @TempFlag(marBlackJackOpp04)
@NullResponse @Goto(OutputClothes)


(OutputClothes)


@SystemMessage Make sure you wear #Var[marSBJ_SubClothes] pieces of clothes before you continue:
@Variable[marSBJ_SubClothes]=[5] @SystemMessage Sweater, shoes, shirt, pants and boxers.
@Variable[marSBJ_SubClothes]=[4] @SystemMessage Shoes, shirt, pants and boxers.
@Variable[marSBJ_SubClothes]=[3] @SystemMessage Shirt, pants and boxers.

@SystemMessage @RT(Ready?,Are you ready?,Can we continue?,Are you wearing these clothes?)
[done,ready,yes,continue,confirm] @SystemMessage Ok.
@DifferentAnswer @SystemMessage Confirm when you are done.


@Flag(marBlackJackOpp02) Hi #SubName! #SBJopp1
@Flag(marBlackJackOpp02) So, you think you can beat me in Blackjack?! #SBJopp1
@Flag(marBlackJackOpp02) Well, let's find out then! #Grin #SBJopp1

@Flag(marBlackJackOpp01) Hello there! #SBJopp1
@Flag(marBlackJackOpp01) So, you have defeated Nicole last time, eh?! #SBJopp1
@Flag(marBlackJackOpp01) Let's see, if you can defeat me! #Grin #SBJopp1

@Flag(marBlackJackOpp03) Oh, you wanna play?!
@Flag(marBlackJackOpp03) Fine, then let's play #Grin

@Flag(marBlackJackOpp04) Hello #SubName!
@Flag(marBlackJackOpp04) So you want to try to beat me?!
@Flag(marBlackJackOpp04) Ok, ... let's find out who is the better player here! #Grin


@NullResponse @Goto(PlaceBet)

### Texte, wenn man ein 2tes mal spielt
### s/h in infos



(subStrip)


@Variable[marSBJ_SubClothes]=[5] #SubName, <i>slowly</i> take off your sweater now! #Grin #SBJopp1 @PlayAudio[mar\leaveHatOn.wav] 
@Variable[marSBJ_SubClothes]=[4] Take off your shoes. #SBJopp1 @PlayAudio[mar\leaveHatOn.wav] 
@Variable[marSBJ_SubClothes]=[3] Strip out off your shirt now, do it <i>slowly</i> #SubName! #SBJopp1 @PlayAudio[mar\leaveHatOn.wav] 
@Variable[marSBJ_SubClothes]=[2] #SubName, you own me your pants, strip <i>slowly</i> out of it! #SBJopp1 @PlayAudio[mar\leaveHatOn.wav] 
@Variable[marSBJ_SubClothes]=[2] #Lol #SBJopp1 
@Variable[marSBJ_SubClothes]=[1] Finally strip out off your boxers! #Grin #SBJopp1 @PlayAudio[mar\leaveHatOn.wav] 
@NullResponse @Wait(17) #SBJopp1 
Ok, one piece of clothes off, 100 Dollar for you. #SBJopp1 @PlayAudio[System\PayoutOne.wav] 
@NullResponse #SBJopp1 

@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[marSubDollar]=[marSubDollar]+[100] 
@NullResponse @ChangeVar[marDommeDollar]=[marDommeDollar]-[100]
@NullResponse @ChangeVar[marSBJ_SubClothes]=[marSBJ_SubClothes]-[1]
@NullResponse @Goto(afterStrip)

(dommeStrip)


@RT(Damn,Ok,Well then), seems like I have to put something off. #SBJopp1
@NullResponse #SBJopp1strip @LockImages @PlayAudio[mar\BLACK_VELVET.mp3] @Wait(4)
@NullResponse #SBJopp1strip@UnlockImages @Wait(4)

@NullResponse @ChangeVar[marDommeDollar]=[marDommeDollar]+[100] #SBJopp1strip @Wait(4)
@NullResponse @ChangeVar[marSubDollar]=[marSubDollar]-[100] #SBJopp1strip @Wait(4)
@NullResponse @ChangeVar[marSBJ_OpponentClothes]=[marSBJ_OpponentClothes]-[1] #SBJopp1strip @Wait(4)
Done, 100 Dollar for me #SBJopp1 @PlayAudio[System\PayoutOne.wav] 
@NullResponse @Goto(afterStrip)

(subIsNaked)


You are naked, #SubName #SBJopp1
Since I have you bare ass naked in front of me now, what shall I do with you, mhh? #SBJopp1
@NullResponse @Goto(subHasLost1)
(subHasLost1)

Get your riding crop out @Wait(5) #SBJopp1
@RT(Take the crop in your hand,Use the riding crop,Make good use of the crop and:,Let's use the crop,Use the crop and:) #SBJopp1

@NullResponse @CustomTask(marCBTcockCrop) #SBJopp1
#CBTCockComment  #SBJopp1
@NullResponse @CustomTask(marCBTcockCrop) #SBJopp1
#CBTCockCommentMar #SBJopp1
#CBTCockCommentMar #SBJopp1

Take your @RT(wooden spoon,cane) in your hand and spank your ass according to this video #SBJopp1 @Wait(20)




@NullResponse @Flag(marBlackJackOpp02) @PlayVideo[mar/spanking/*.*,#Random(60,80)] @JumpVideo
@NullResponse @Flag(marBlackJackOpp01) @PlayVideo[mar/spanking/*.*,#Random(80,100)] @JumpVideo
@NullResponse @Flag(marBlackJackOpp03) @PlayVideo[mar/spanking/*.*,#Random(100,120)] @JumpVideo
@NullResponse @Flag(marBlackJackOpp04) @PlayVideo[mar/spanking/*.*,#Random(140,200)] @JumpVideo


@NullResponse @Goto(Repay_Domme)

(dommeIsNaked)


@NullResponse @RapidCodeOn
@NullResponse @Flag(marBlackJackOpp02) @SetFlag(marBlackJackOpp02defeated)
@NullResponse @Flag(marBlackJackOpp01) @SetFlag(marBlackJackOpp01defeated)
@NullResponse @Flag(marBlackJackOpp03) @SetFlag(marBlackJackOpp03defeated)
@NullResponse @Flag(marBlackJackOpp04) @SetFlag(marBlackJackOpp04defeated)

I am naked #SBJopp1
You have earned a little treat #Grin #SBJopp1

I want you to get naked also. #SBJopp1

@RT(Done?,Are you done?,Tell me when you are done!,Ready?,Are you ready?,Let me know when we can continue) #SBJopp1
[done,ready,yes,continue] @RT(Ok,Good,Fine,Nice,Sweet,Perfect) #SBJopp1
@DifferentAnswer Tell me when you are done, #PetName #SBJopp1

(winStroke)

#StartStroking @PlayAudio[tease\cStroke.mp3] @MetronomeOn(60) #SBJopp1
#StrokeFaster #SBJopp1 @MetronomeUp(20) @Wait(#Random(10,20))
#StrokeFaster #SBJopp1 @MetronomeUp(20) @Wait(#Random(10,20))
#StrokeFaster #SBJopp1 @MetronomeUp(20) @Wait(#Random(10,20))
#StrokeFaster #SBJopp1 @MetronomeUp(20) @Wait(#Random(10,20))
#StrokeFaster #SBJopp1 @MetronomeUp(20) @Wait(#Random(10,20))
#StrokeFaster #SBJopp1 @MetronomeUp(20) @Wait(#Random(10,20))


@NullResponse @Flag(marBlackJackOpp02) #Edge @PlayAudio[tease\cEdge.mp3] @EdgeNoHold @MultipleEdges(2, 10, 100) #SBJopp1
@NullResponse @Flag(marBlackJackOpp01) #Edge @PlayAudio[tease\cEdge.mp3] @EdgeNoHold @MultipleEdges(3, 10, 100) #SBJopp1
@NullResponse @Flag(marBlackJackOpp03) #Edge @PlayAudio[tease\cEdge.mp3] @EdgeNoHold @MultipleEdges(4, 10, 100) #SBJopp1
@NullResponse @Flag(marBlackJackOpp04) #Edge @PlayAudio[tease\cEdge.mp3] @EdgeNoHold @MultipleEdges(5, 10, 100) #SBJopp1

#LetTheEdgesFade #SBJopp1

Wanna wank some more looking at me like that? #SBJopp1
[yes] @RT(Ok,Good,Fine) #SBJopp1 @Goto(winStrokeAgain)
[no] @RT(Ok,Good,Fine) #SBJopp1
@DifferentAnswer Yes or no? #SBJopp1

@NullResponse @Goto(Repay_Domme)


(winStrokeAgain)
#StartStroking @PlayAudio[tease\cStroke.mp3] #SBJopp1 @MetronomeOn(#Random(20,180))
@NullResponse #SBJopp1 @Wait(#Random(10,20))
@NullResponse #SBJopp1 @Chance10(doTheWinEdgeAgain) @Wait(#Random(10,20))
@NullResponse #SBJopp1 @Wait(#Random(10,20))
@NullResponse #SBJopp1 @Chance30(doTheWinEdgeAgain) @Wait(#Random(10,20))
@NullResponse #SBJopp1 @Wait(#Random(10,20))
@NullResponse #SBJopp1 @Chance50(doTheWinEdgeAgain) @Wait(#Random(10,20))
@NullResponse #SBJopp1 @Wait(#Random(10,20))
@NullResponse #SBJopp1 @Wait(#Random(10,20))
(doTheWinEdgeAgain)
@NullResponse @Flag(marBlackJackOpp02) #Edge @PlayAudio[tease\cEdge.mp3] @EdgeNoHold @MultipleEdges(2, 10, 100) #SBJopp1
@NullResponse @Flag(marBlackJackOpp01) #Edge @PlayAudio[tease\cEdge.mp3] @EdgeNoHold @MultipleEdges(3, 10, 100) #SBJopp1
@NullResponse @Flag(marBlackJackOpp03) #Edge @PlayAudio[tease\cEdge.mp3] @EdgeNoHold @MultipleEdges(4, 10, 100) #SBJopp1
@NullResponse @Flag(marBlackJackOpp04) #Edge @PlayAudio[tease\cEdge.mp3] @EdgeNoHold @MultipleEdges(5, 10, 100) #SBJopp1

#LetTheEdgesFade #SBJopp1
@RT(More?,Again?,Wanna wank some more looking at me like that?,Can you take more of that?,Would you like to keep going?) #SBJopp1
[yes] @RT(Ok,Good,Fine) #SBJopp1 @Goto(winStrokeAgain)
[no] @RT(Ok,Good,Fine) #SBJopp1
@DifferentAnswer Yes or no? #SBJopp1
@NullResponse @Goto(Repay_Domme)

(New_hand)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]-[Sub_number_of_cards]
@NullResponse @ChangeVar[Sub_points]=[Sub_points]-[Sub_points]
@NullResponse @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]-[Domme_number_of_cards]
@NullResponse @ChangeVar[Domme_points]=[Domme_points]-[Domme_points]
@NullResponse @ChangeVar[Sub_has_ace]=[Sub_has_ace]-[Sub_has_ace]
@NullResponse @ChangeVar[Domme_has_ace]=[Domme_has_ace]-[Domme_has_ace]
@NullResponse @ChangeVar[Bet]=[Bet]-[Bet]

@NullResponse @DeleteFlag(Sub_turn)
@NullResponse @DeleteFlag(Domme_turn)
@NullResponse @DeleteFlag(Flagge_Sub_has_ace)
@NullResponse @DeleteFlag(Flagge_Domme_has_ace)
@NullResponse @DeleteFlag(Sub_stand)

@NullResponse @Goto(PlaceBet)




(Ask_new_hand)
@NullResponse @RapidCodeOn
@NullResponse @If[marSubDollar]<=[0]Then(subStrip)
@NullResponse @If[marDommeDollar]<=[0]Then(dommeStrip)

(afterStrip)

@NullResponse @RapidCodeOn
@NullResponse @If[marSBJ_SubClothes]<=[0]Then(subIsNaked)
@NullResponse @If[marSBJ_OpponentClothes]<=[0]Then(dommeIsNaked)


@NullResponse @Goto(CheckSomethingInBetween)
@NullResponse @Goto(New_hand)



(CheckSomethingInBetween)
@NullResponse @RapidCodeOn
@NullResponse @CheckFlag(bjPinsOn)
@NullResponse @Flag(marBlackJackOpp02) @Chance10(DoSomethingInBetween)
@NullResponse @Flag(marBlackJackOpp01) @Chance20(DoSomethingInBetween)
@NullResponse @Flag(marBlackJackOpp03) @Chance30(DoSomethingInBetween)
@NullResponse @Flag(marBlackJackOpp04) @Chance40(DoSomethingInBetween)

@NullResponse @Goto(New_hand)





(bjPinsOn)
@RT(You can remove the clothepins now,Remove the clothepins) @DeleteFlag(bjPinsOn) #SBJopp1
@NullResponse @Goto(New_hand)



(DoSomethingInBetween)
@NotFlag(marDoSomeFirstDone) @RT(Playing cards is fine,, but a little something in between is more my liking,Let's do something else in between,I'm a little bored,Just for my amusement)... #Grin #SBJopp1
@Flag(marDoSomeFirstDone) @RT(Now I want you to,#SubName,#SubName,, entertain me,I need more amusement,Let's have a little break from the game)... #Grin #SBJopp1
@NullResponse @RapidCodeOn
@Variable[marSBJ_SubClothes]=[5] @NullResponse @Goto(bjSpank)
@Variable[marSBJ_SubClothes]=[4] @NullResponse @Goto(bjSpank)
@Variable[marSBJ_SubClothes]=[3] @NullResponse @Goto(bjSpank,showSpankingVideo)
@Variable[marSBJ_SubClothes]=[2] @NullResponse @Goto(bjSpank,showSpankingVideo,bjPins,bjPins)
@Variable[marSBJ_SubClothes]=[2] @NullResponse @Goto(bjSpank,showSpankingVideo,bjPins,bjPins)
@Variable[marSBJ_SubClothes]=[1] @NullResponse @Goto(bjSpank,showSpankingVideo,bjPins,introCrop,aBitPleasure,bjPins,introCrop,aBitPleasure)





(aBitPleasure)
Pull your cock out, but keep the boxers on. #SBJopp1
#StartStroking #SBJopp1
@NullResponse #SBJopp1
@NullResponse #SBJopp1
@NullResponse #SBJopp1 @Chance30(endaBitPleasure)
@NullResponse #SBJopp1 @Chance30(endaBitPleasure)
@NullResponse #SBJopp1 @Chance30(endaBitPleasure)
@NullResponse #SBJopp1 @Chance30(endaBitPleasure)
@NullResponse #SBJopp1 @Chance30(endaBitPleasure)
(endaBitPleasure)
#StopStroking #SBJopp1
Put your cock back into the boxers. #Grin #SBJopp1
@NullResponse @Goto(New_hand)

(introCrop)
@NotFlag(marGotCropToday) Get your riding crop out @TempFlag(marGotCropToday) @Wait(5) #SBJopp1
Pull your cock out, but keep the boxers on. #SBJopp1
@RT(Take the crop in your hand,Use the riding crop,Make good use of the crop and:,Let's use the crop,Use the crop and:) #SBJopp1
@NullResponse @LockImages
@NullResponse @CustomTask(marCBTcockCrop) #SBJopp1
@NullResponse @UnlockImages
#CBTCockCommentMar #SBJopp1
Put your cock back into the boxers. #SBJopp1
@RT(Let's continue our game,Let's go back to the cards) #SBJopp1
@NullResponse @Goto(New_hand)





(bjPins)

@NullResponse @RapidCodeOn
@NullResponse @Flag(marBlackJackOpp02) @SetVar[numPins]=[1]
@NullResponse @Flag(marBlackJackOpp01) @SetVar[numPins]=[1]
@NullResponse @Flag(marBlackJackOpp03) @SetVar[numPins]=[2]
@NullResponse @Flag(marBlackJackOpp04) @SetVar[numPins]=[#Random(2,3)]

@Variable[numPins]=[1] @RT(Put on,Place,Put,Attach) #Var[numPins] clothepin on each nipple #SBJopp1 @Wait(20)
@Variable[numPins]>[1] @RT(Put on,Place,Put,Attach) #Var[numPins] clothepins on each nipple #SBJopp1 @Wait(20)
@NullResponse @TempFlag(bjPinsOn)
@RT(That's better,#Grin) #SBJopp1
@RT(Let's continue our game,Let's go back to the cards) #SBJopp1
@NullResponse @Goto(New_hand)

(bjSpank)

@Flag(marBlackJackOpp02) @RT(Grab,Take,Take out) your wooden spoon #SBJopp1
@Flag(marBlackJackOpp01) @RT(Grab,Take,Take out) your @RT(ruler,wooden spoon) #SBJopp1
@Flag(marBlackJackOpp03) @RT(Grab,Take,Take out) your @RT(ruler,wooden spoon,leather belt) #SBJopp1
@Flag(marBlackJackOpp04) @RT(Grab,Take,Take out) your @RT(ruler,wooden spoon,cane,leather belt) #SBJopp1


@RT(Done?,Are you done?,Tell me when you are done!,Ready?,Are you ready?,Let me know when we can continue,Do you have it?) #SBJopp1
[done,ready,yes,continue,have] @RT(Ok,Good,Fine,Nice,Sweet,Perfect) #SBJopp1
@DifferentAnswer Tell me when you are done, #PetName #SBJopp1
@NullResponse @RapidCodeOn
@NullResponse @Flag(marBlackJackOpp02) @SetVar[PunishmentSpanking]=[#Random(20,40)]
@NullResponse @Flag(marBlackJackOpp01) @SetVar[PunishmentSpanking]=[#Random(40,60)]
@NullResponse @Flag(marBlackJackOpp03) @SetVar[PunishmentSpanking]=[#Random(60,90)]
@NullResponse @Flag(marBlackJackOpp04) @SetVar[PunishmentSpanking]=[#Random(70,100)]


(Spank)
@RT(Get ready,Prepare yourself) #SBJopp1
@NullResponse @Goto(10spanks,20spanks,30spanks,40spanks,50spanks)
(10spanks)
@NullResponse @PlayAudio[\GNMSounds\Punishment\SpankingTask\10Strikes\Spank10Fast.mp3] @ChangeVar[PunishmentSpanking]=[PunishmentSpanking]-[10] @Wait(9)
@RT(Relax a little..,Relax for a moment,Calm down for a moment) @If[PunishmentSpanking]<=[0]Then(endFirstSpanking) #SBJopp1
@NullResponse @Wait(#Random(10,20))
@NullResponse @Goto(Spank)
(20spanks)
@NullResponse @PlayAudio[\GNMSounds\Punishment\SpankingTask\20Strikes\Spank20Fast.mp3] @ChangeVar[PunishmentSpanking]=[PunishmentSpanking]-[20] @Wait(17)
@RT(Relax a little..,Relax for a moment,Calm down for a moment) @If[PunishmentSpanking]<=[0]Then(endFirstSpanking) #SBJopp1
@NullResponse @Wait(#Random(10,20))
@NullResponse @Goto(Spank)
(30spanks)
@NullResponse @PlayAudio[\GNMSounds\Punishment\SpankingTask\30Strikes\Spank30Fast.mp3] @ChangeVar[PunishmentSpanking]=[PunishmentSpanking]-[30] @Wait(25)
@RT(Relax a little..,Relax for a moment,Calm down for a moment) @If[PunishmentSpanking]<=[0]Then(endFirstSpanking) #SBJopp1
@NullResponse @Wait(#Random(10,20))
@NullResponse @Goto(Spank)
(40spanks)
@NullResponse @PlayAudio[\GNMSounds\Punishment\SpankingTask\40Strikes\Spank40Fast.mp3] @ChangeVar[PunishmentSpanking]=[PunishmentSpanking]-[40] @Wait(33)
@RT(Relax a little..,Relax for a moment,Calm down for a moment) @If[PunishmentSpanking]<=[0]Then(endFirstSpanking) #SBJopp1
@NullResponse @Wait(#Random(10,20))
@NullResponse @Goto(Spank)
(50spanks)
@NullResponse @PlayAudio[\GNMSounds\Punishment\SpankingTask\50Strikes\Spank10Fast.mp3] @ChangeVar[PunishmentSpanking]=[PunishmentSpanking]-[50] @Wait(40)
@RT(Relax a little..,Relax for a moment,Calm down for a moment) @If[PunishmentSpanking]<=[0]Then(endFirstSpanking) #SBJopp1
@NullResponse @Wait(#Random(10,20))
@NullResponse @Goto(Spank)
(endFirstSpanking)
@RT(That's better,Enough,That's enough for now,So far,, so good) #SBJopp1
@RT(Let's continue our game,Let's go back to the cards) #SBJopp1
@NullResponse @Goto(New_hand)



(showSpankingVideo)
Take your @RT(wooden spoon,cane) in your hand and spank your ass according to this @RT(video,clip,little clip) @Wait(10) #SBJopp1

@NullResponse @Flag(marBlackJackOpp02) @PlayVideo[mar/spanking/*.*,#Random(60,80)] @JumpVideo
@NullResponse @Flag(marBlackJackOpp01) @PlayVideo[mar/spanking/*.*,#Random(80,100)] @JumpVideo
@NullResponse @Flag(marBlackJackOpp03) @PlayVideo[mar/spanking/*.*,#Random(100,120)] @JumpVideo
@NullResponse @Flag(marBlackJackOpp04) @PlayVideo[mar/spanking/*.*,#Random(140,160)] @JumpVideo

@RT(That's better,Enough,That's enough in between entertainment for now,So far,, so good,Enough) #SBJopp1
@RT(Let's continue our game,Let's go back to the cards) #SBJopp1
@NullResponse @Goto(New_hand)










(PlaceBet)

@NullResponse @RapidCodeOff
I have #Var[marDommeDollar] Dollar, you have #Var[marSubDollar] Dollar. @RT(Place your bet #SubName, How much do you want to bet?) @InputVar[Bet] #SBJopp1
@NullResponse @RapidCodeOn
@Variable[Bet]>[60] @SystemMessage Maximum bet is 60 Dollar. Place another bet @Goto(PlaceBet) #SBJopp1
@Variable[Bet]<[5] @SystemMessage Minimum bet is 5 Dollar. Place another bet @Goto(PlaceBet) #SBJopp1

@Variable[Bet]>[marSubDollar] @SystemMessage You don't have @ShowVar[Bet] Dollar. Place another bet @Goto(PlaceBet) #SBJopp1
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[marSubDollar]=[marSubDollar]-[Bet] @PlayAudio[System\PayoutOne.wav] 
@NullResponse @ChangeVar[marDommeDollar]=[marDommeDollar]-[Bet]
@NullResponse @Goto(Card_for_Sub)





(Hit_or_stand)


#BJ_Sub_points with #Var[Sub_number_of_cards] cards #BJ_Domme_points with #Var[Domme_number_of_cards] #SBJopp1
@NullResponse @RapidCodeOn
@NullResponse @If[Sub_points]=[21]Then(SubHas21)


Hit or stand? #SBJopp1
[hit,h] @NullResponse @Goto(Card_for_Sub) #SBJopp1
[stand,s] @RT(My turn,My turn then I guess,Ok,, then it's my turn now) @TempFlag(Sub_stand) @TempFlag(Domme_turn) @Goto(Card_for_Domme) #SBJopp1
@DifferentAnswer Hit or stand?



(Domme_hit_or_stand)


@NullResponse @RapidCodeOn
@NullResponse @If[Domme_points]<[Sub_points]And[Domme_has_ace]>[0]Then(Card_for_Domme)

@NullResponse @If[Domme_points]<[Sub_points]Then(Card_for_Domme) 

@NullResponse @If[Domme_points]<[Sub_points]Then(Check_Sub_win) 
@NullResponse @If[Domme_points]=[Sub_points]Then(Check_push) 
@NullResponse @If[Domme_points]>[Sub_points]Then(Check_Domme_win)

(Check_Sub_win)


@NullResponse @RapidCodeOn
@NullResponse @If[Sub_points]=[21]And[Sub_number_of_cards]=[2]Then(Sub_blackjack)
@NullResponse @Goto(Sub_won)

(Check_push)


@NullResponse @RapidCodeOn
@NullResponse @If[Domme_number_of_cards]=[Sub_number_of_cards]And[Domme_number_of_cards]=[2]And[Domme_points]=[21]Then(Domme_blackjack)
@NullResponse @If[Domme_number_of_cards]=[Sub_number_of_cards]And[Sub_number_of_cards]=[2]And[Sub_points]=[21]Then(Sub_blackjack)
@NullResponse @Goto(Push_confirmed)

(Check_Domme_win)


@NullResponse @Variable[Domme_points]>[21] @CheckFlag(Flagge_Domme_has_ace) @Goto(Check_Sub_win)
@NullResponse @If[Domme_points]=[21]And[Domme_number_of_cards]=[2]Then(Domme_blackjack)
@NullResponse @Goto(Domme_won)

(Sub_blackjack)


@NullResponse #SBJopp1 @LockImages 
@Variable[Domme_points]>[21] @RT(I busted!, I busted #SubName!, I busted #SubName!, I busted #SubName, I busted #SubName)  
@RT(#BlackJerk for you!, #BlackJerk for you, You have a #BlackJerk!, You have a #BlackJerk) @ShowImage[tgr8 images\BlackJerk\*.*] @PlayAudio[System\PayoutBig.wav] 
@NullResponse @RapidCodeOn @UnlockImages 
@NullResponse @ChangeVar[marSubDollar]=[marSubDollar]+[Bet]
@NullResponse @ChangeVar[marSubDollar]=[marSubDollar]+[Bet]
@NullResponse @Goto(Ask_new_hand)

(Sub_won)


@Variable[Domme_points]>[21] @RT(I busted!,I busted #SubName!,I busted #SubName!,I busted #SubName,I busted #SubName) #SBJopp1
@Variable[Domme_points]<=[21] #BJ_Sub_points #BJ_Domme_points #SBJopp1
@RT(You won #SubName!, You won #SubName!, You did it #SubName!, You did it #SubName!, You've won #SubName!, You've won #SubName!) @PlayAudio[System\PayoutBig.wav] #SBJopp1
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[marSubDollar]=[marSubDollar]+[Bet]
@NullResponse @ChangeVar[marSubDollar]=[marSubDollar]+[Bet]
@NullResponse @Goto(Ask_new_hand)

(Check_Sub_busted)
@NullResponse @RapidCodeOn
@NullResponse @CheckFlag(Flagge_Sub_has_ace) @Goto(Sub_busted)
(Flagge_Sub_has_ace)
@NullResponse @ChangeVar[Sub_has_ace]=[Sub_has_ace]-[1] 
@NullResponse @ChangeVar[Sub_points]=[Sub_points]-[10]
@NullResponse @Variable[Sub_has_ace]=[0] @DeleteFlag(Flagge_Sub_has_ace)
@NullResponse @Goto(Command_centre)

(Sub_busted)
#BJ_Sub_points #SBJopp1
@RT(You busted #SubName!, You busted #SubName, You busted!, You busted, You lost #SubName!, You lost #SubName, I won #SubName!, I won #SubName, And the winner is... #Me!) #SBJopp1
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[marDommeDollar]=[marDommeDollar]+[Bet]
@NullResponse @ChangeVar[marDommeDollar]=[marDommeDollar]+[Bet]
@NullResponse @ChangeVar[Domme_win]=[Domme_win]+[Bet] @Goto(Ask_new_hand)





(Domme_blackjack)


@RT(I did #BlackJerk!, I did #BlackJerk, #BlackJerk for #Me!, #BlackJerk for #Me, I have a #BlackJerk!, I have a #BlackJerk) #SBJopp1
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[marDommeDollar]=[marDommeDollar]+[Bet]
@NullResponse @ChangeVar[marDommeDollar]=[marDommeDollar]+[Bet] @Goto(Ask_new_hand)



(Domme_won)


#BJ_Sub_points #BJ_Domme_points #SBJopp1
@RT(I won #SubName!, I won #SubName, I won!, I won, You lost #SubName!, You lost #SubName) #SBJopp1
@NullResponse @RapidCodeOn

@NullResponse @ChangeVar[marDommeDollar]=[marDommeDollar]+[Bet]
@NullResponse @ChangeVar[marDommeDollar]=[marDommeDollar]+[Bet] @Goto(Ask_new_hand)



(Flagge_Domme_has_ace)


@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Domme_has_ace]=[Domme_has_ace]-[1] @ChangeVar[Domme_points]=[Domme_points]-[10]
@NullResponse @Variable[Domme_has_ace]=[0] @DeleteFlag(Flagge_Domme_has_ace)
@NullResponse @Goto(Command_centre)

(Push_confirmed)


@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[marDommeDollar]=[marDommeDollar]+[Bet]
@NullResponse @ChangeVar[marSubDollar]=[marSubDollar]+[Bet]
#BJ_Sub_points #BJ_Domme_points #SBJopp1

@RT(#Push!, #Push, Nobody won #SubName!, Nobody won #SubName, It's a #Push!, It's a #Push) @PlayAudio[System\PayoutOne.wav] @AddTokens(Bet] Bronze) @Goto(Ask_new_hand) #SBJopp1






(SubHas21)
Since you have already 21 points, I guess it's my turn now @TempFlag(Sub_stand) @Goto(Card_for_Domme) #SBJopp1





(Repay_Domme)

@NullResponse @RapidTextOff
@NullResponse @TyposOn
Well, that was fun. #SBJopp1
But now I have to leave, #Bye! #SBJopp1
@NullResponse @DommeNameReset @DommeAvatarReset
@NullResponse @Goto(myEnde)





(Select_method_of_payment)
@NullResponse @CallReturn(Custom\tgr8 Games\BlackJerk\BlackJerk files\Repay Domme\Select_method_of_payment.txt)
(End)
 
 
 
 
 
 
 
 
 
 
 
 
 
 

@NullResponse @Variable[Sub_number_of_cards]=[2] @TempFlag(Domme_turn)
@Flag(Sub_stand)


@Flag(Domme_turn) flag Domme_turn gesetzt
@NotFlag(Domme_turn) flag Domme_turn NICHT gesetzt
Sub_cards #Var[Sub_number_of_cards] ... Sub_points #Var[Sub_points].... Domme_cards #Var[Domme_number_of_cards] ... Domme_points #Var[Domme_points]
(WhatsNext)


(Command_centre)
@NullResponse @RapidCodeOn 
@NullResponse @CheckFlag(Domme_turn,Command_centre_Domme_turn)

(Command_centre_Sub_turn)
@NullResponse @RapidCodeOn 
@NullResponse @If[Sub_points]>[21]Then(Check_Sub_busted)
@NullResponse @If[Sub_points]>[21]Then(Check_Sub_busted)
@NullResponse @If[Sub_points]>[21]Then(Check_Sub_busted)

@NullResponse @If[Sub_number_of_cards]<[2]Then(Choose_card) 
@NullResponse @If[Sub_number_of_cards]<[2]Then(Choose_card) 
@NullResponse @If[Sub_number_of_cards]<[2]Then(Choose_card) 

@NullResponse @If[Sub_number_of_cards]=[2]Then(Command_centre_Domme_turn) 
@NullResponse @If[Sub_number_of_cards]=[2]Then(Command_centre_Domme_turn) 
@NullResponse @If[Sub_number_of_cards]=[2]Then(Command_centre_Domme_turn) 

@NotFlag(Sub_stand) @NullResponse @If[Sub_number_of_cards]>[2]Then(Hit_or_stand)
@NotFlag(Sub_stand) @NullResponse @If[Sub_number_of_cards]>[2]Then(Hit_or_stand)
@NotFlag(Sub_stand) @NullResponse @If[Sub_number_of_cards]>[2]Then(Hit_or_stand)


(Command_centre_Domme_turn)

@NullResponse @If[Domme_number_of_cards]=[1]Then(Hit_or_stand)
@NullResponse @If[Domme_number_of_cards]=[1]Then(Hit_or_stand)
@NullResponse @If[Domme_number_of_cards]=[1]Then(Hit_or_stand)

@NullResponse @If[Domme_points]>[21]Then(Sub_won) 
@NullResponse @If[Domme_points]>[21]Then(Sub_won) 
@NullResponse @If[Domme_points]>[21]Then(Sub_won) 

@NullResponse @If[Domme_points]>[Sub_points]Then(Check_Domme_win) 
@NullResponse @If[Domme_points]>[Sub_points]Then(Check_Domme_win) 
@NullResponse @If[Domme_points]>[Sub_points]Then(Check_Domme_win) 

@NullResponse @If[Domme_points]=[Sub_points]Then(Check_push) 
@NullResponse @If[Domme_points]=[Sub_points]Then(Check_push) 
@NullResponse @If[Domme_points]=[Sub_points]Then(Check_push) 

@NullResponse @If[Domme_points]>[21]Then(Check_push) 
@NullResponse @If[Domme_points]>[21]Then(Check_push) 
@NullResponse @If[Domme_points]>[21]Then(Check_push) 

@NullResponse @If[Domme_points]<[Sub_points]Then(Card_for_Domme) 
@NullResponse @If[Domme_points]<[Sub_points]Then(Card_for_Domme) 
@NullResponse @If[Domme_points]<[Sub_points]Then(Card_for_Domme) 

@NullResponse @If[Domme_points]>=[17]Then(Domme_hit_or_stand)
@NullResponse @If[Domme_points]>=[17]Then(Domme_hit_or_stand)
@NullResponse @If[Domme_points]>=[17]Then(Domme_hit_or_stand)

@NullResponse @Goto(Domme_hit_or_stand)
@NullResponse @Goto(Domme_hit_or_stand)
@NullResponse @Goto(Domme_hit_or_stand)

Ende von Command_centre_Domme_turn
@NullResponse @If[Domme_points]<[17]Then(Card_for_Domme) 



(Card_for_Domme)
@NullResponse @RapidCodeOn 
@NullResponse @If[Domme_number_of_cards]=[0]Then(DommeTextFirst)
@NullResponse @Goto(DommeTextSecond)
(DommeTextFirst)
@RT(My first card is a, I got a, What I got is a, The first card I got is a, And my card is a, My first card is a)... #SBJopp1
@NullResponse @Goto(DommeChoose_card)

(DommeTextSecond)
@Variable[Domme_number_of_cards]=[1] @RT(My card is a, I got a, What I got is a, The next card I got is a, And my card is a, My next card is a)... #SBJopp1
@Variable[Domme_number_of_cards]>[1] I have #Var[Domme_points] with #Var[Domme_number_of_cards] cards. @RT(I'll take another one,Next for me,I guess I need one more,I still need more points,One more for me) ... #SBJopp1
@NullResponse @Goto(DommeChoose_card)



(DommeChoose_card)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1] @Wait(3)
@NullResponse @Goto(DomChoose001,DomChoose002,DomChoose003,DomChoose004,DomChoose005,DomChoose006,DomChoose007,DomChoose008,DomChoose009,DomChoose0010,DomChoose00Jack,DomChoose00Queen,DomChoose00King)





(DomChoose001)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Domme_points]=[Domme_points]+[11]
@Variable[Domme_points]>[21] Ace made to 1 point for opponent @ChangeVar[Domme_points]=[Domme_points]-[10]

@NullResponse @ChangeVar[Domme_has_ace]=[Domme_has_ace]+[1]
@NullResponse @TempFlag(Flagge_Domme_has_ace)

@NullResponse @Goto(Dome01_Clubs,Dome01_Diamonds,Dome01_Hearts,Dome01_Spades)

(Dome01_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\01\ace_of_clubs.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(Dome01_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\01\ace_of_diamonds.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(Dome01_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\01\ace_of_hearts.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)


(Dome01_Spades)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\01\ace_of_spades.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)





(DomChoose002)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Domme_points]=[Domme_points]+[2]
@NullResponse @Goto(Dome02_Clubs, Dome02_Diamonds, Dome02_Hearts, Dome02_Spades)

(Dome02_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\02\2_of_clubs.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(Dome02_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\02\2_of_diamonds.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(Dome02_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\02\2_of_hearts.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(Dome02_Spades)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\02\2_of_spades.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)



(DomChoose003)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Domme_points]=[Domme_points]+[3]
@NullResponse @Goto(Dome03_Clubs, Dome03_Diamonds, Dome03_Hearts, Dome03_Spades)

(Dome03_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\03\3_of_clubs.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(Dome03_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\03\3_of_diamonds.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(Dome03_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\03\3_of_hearts.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(Dome03_Spades)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\03\3_of_spades.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)



(DomChoose004)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Domme_points]=[Domme_points]+[4]
@NullResponse @Goto(Dome04_Clubs, Dome04_Diamonds, Dome04_Hearts, Dome04_Spades)

(Dome04_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\04\4_of_clubs.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(Dome04_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\04\4_of_diamonds.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(Dome04_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\04\4_of_hearts.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(Dome04_Spades)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\04\4_of_spades.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)






(DomChoose005)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Domme_points]=[Domme_points]+[5]
@NullResponse @Goto(Dome05_Clubs, Dome05_Diamonds, Dome05_Hearts, Dome05_Spades)

(Dome05_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\05\5_of_clubs.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(Dome05_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\05\5_of_diamonds.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(Dome05_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\05\5_of_hearts.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(Dome05_Spades)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\05\5_of_spades.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)





(DomChoose006)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Domme_points]=[Domme_points]+[6]
@NullResponse @Goto(Dome06_Clubs, Dome06_Diamonds, Dome06_Hearts, Dome06_Spades)

(Dome06_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\06\6_of_clubs.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(Dome06_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\06\6_of_diamonds.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(Dome06_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\06\6_of_hearts.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(Dome06_Spades)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\06\6_of_spades.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)





(DomChoose007)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Domme_points]=[Domme_points]+[7]
@NullResponse @Goto(Dome07_Clubs, Dome07_Diamonds, Dome07_Hearts, Dome07_Spades)

(Dome07_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\07\7_of_clubs.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(Dome07_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\07\7_of_diamonds.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(Dome07_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\07\7_of_hearts.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(Dome07_Spades)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\07\7_of_spades.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)







(DomChoose008)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Domme_points]=[Domme_points]+[8]
@NullResponse @Goto(Dome08_Clubs, Dome08_Diamonds, Dome08_Hearts, Dome08_Spades)

(Dome08_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\08\8_of_clubs.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(Dome08_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\08\8_of_diamonds.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(Dome08_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\08\8_of_hearts.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(Dome08_Spades)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\08\8_of_spades.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)







(DomChoose009)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Domme_points]=[Domme_points]+[9]
@NullResponse @Goto(Dome09_Clubs, Dome09_Diamonds, Dome09_Hearts, Dome09_Spades)

(Dome09_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\09\9_of_clubs.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(Dome09_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\09\9_of_diamonds.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(Dome09_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\09\9_of_hearts.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(Dome09_Spades)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\09\9_of_spades.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)





(DomChoose0010)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Domme_points]=[Domme_points]+[10]
@NullResponse @Goto(Dome010_Clubs, Dome010_Diamonds, Dome010_Hearts, Dome010_Spades)

(Dome010_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\10\10_of_clubs.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(Dome010_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\10\10_of_diamonds.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(Dome010_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\10\10_of_hearts.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(Dome010_Spades)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\10\10_of_spades.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)






(DomChoose00Jack)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Domme_points]=[Domme_points]+[10]
@NullResponse @Goto(Dome011_Clubs, Dome011_Diamonds, Dome011_Hearts, Dome011_Spades)

(Dome011_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\11\jack_of_clubs.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(Dome011_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\11\jack_of_diamonds.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(Dome011_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\11\jack_of_hearts.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(Dome011_Spades)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\11\jack_of_spades.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)





(DomChoose00Queen)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Domme_points]=[Domme_points]+[10]
@NullResponse @Goto(Dome012_Clubs, Dome012_Diamonds, Dome012_Hearts, Dome012_Spades)

(Dome012_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\12\queen_of_clubs.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(Dome012_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\12\queen_of_diamonds.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(Dome012_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\12\queen_of_hearts.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(Dome012_Spades)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\12\queen_of_spades.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)






(DomChoose00King)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Domme_points]=[Domme_points]+[10]
@NullResponse @Goto(Dome013_Clubs, Dome013_Diamonds, Dome013_Hearts, Dome013_Spades)

(Dome013_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\13\king_of_clubs.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(Dome013_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\13\king_of_diamonds.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(Dome013_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\13\king_of_hearts.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(Dome013_Spades)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\13\king_of_spades.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)









(Card_for_Sub)

@NullResponse @If[Sub_number_of_cards]<[2]Then(textFirst)
@NullResponse @Goto(textSecond)
(textFirst)
@RT(#SubName,, your first two cards are, #SubName,, your first cards are, #SubName,, the cards you got are, Your first two cards are, The first two cards you got #SubName are)... #SBJopp1
@NullResponse @Goto(Choose_card)

(textSecond)
@RT(#SubName,, your card is a, You got a, #SubName,, what you got is a, The card you got is a, And your card is a, Your next card is a, And now you get a, #SubName,, next card is a)... #SBJopp1

@NullResponse @Goto(Choose_card)

(Choose_card)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1] @Wait(3)
@NullResponse @Goto(choose001,choose002,choose003,choose004,choose005,choose006,choose007,choose008,choose009,choose0010,choose00Jack,choose00Queen,choose00King)





(choose001)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Sub_points]=[Sub_points]+[11]
@Variable[Sub_points]>[21] Ace made to 1 point @ChangeVar[Sub_points]=[Sub_points]-[10]

@NullResponse @ChangeVar[Sub_has_ace]=[Sub_has_ace]+[1]
@NullResponse @TempFlag(Flagge_Sub_has_ace)

@NullResponse @Goto(01_Clubs, 01_Diamonds, 01_Hearts, 01_Spades)

(01_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\01\ace_of_clubs.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(01_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\01\ace_of_diamonds.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(01_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\01\ace_of_hearts.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)


(01_Spades)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\01\ace_of_spades.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)





(choose002)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Sub_points]=[Sub_points]+[2]
@NullResponse @Goto(02_Clubs, 02_Diamonds, 02_Hearts, 02_Spades)

(02_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\02\2_of_clubs.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(02_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\02\2_of_diamonds.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(02_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\02\2_of_hearts.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(02_Spades)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\02\2_of_spades.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)



(choose003)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Sub_points]=[Sub_points]+[3]
@NullResponse @Goto(03_Clubs, 03_Diamonds, 03_Hearts, 03_Spades)

(03_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\03\3_of_clubs.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(03_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\03\3_of_diamonds.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(03_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\03\3_of_hearts.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(03_Spades)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\03\3_of_spades.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)



(choose004)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Sub_points]=[Sub_points]+[4]
@NullResponse @Goto(04_Clubs, 04_Diamonds, 04_Hearts, 04_Spades)

(04_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\04\4_of_clubs.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(04_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\04\4_of_diamonds.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(04_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\04\4_of_hearts.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(04_Spades)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\04\4_of_spades.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)






(choose005)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Sub_points]=[Sub_points]+[5]
@NullResponse @Goto(05_Clubs, 05_Diamonds, 05_Hearts, 05_Spades)

(05_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\05\5_of_clubs.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(05_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\05\5_of_diamonds.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(05_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\05\5_of_hearts.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(05_Spades)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\05\5_of_spades.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)





(choose006)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Sub_points]=[Sub_points]+[6]
@NullResponse @Goto(06_Clubs, 06_Diamonds, 06_Hearts, 06_Spades)

(06_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\06\6_of_clubs.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(06_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\06\6_of_diamonds.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(06_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\06\6_of_hearts.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(06_Spades)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\06\6_of_spades.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)





(choose007)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Sub_points]=[Sub_points]+[7]
@NullResponse @Goto(07_Clubs, 07_Diamonds, 07_Hearts, 07_Spades)

(07_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\07\7_of_clubs.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(07_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\07\7_of_diamonds.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(07_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\07\7_of_hearts.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(07_Spades)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\07\7_of_spades.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)







(choose008)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Sub_points]=[Sub_points]+[8]
@NullResponse @Goto(08_Clubs, 08_Diamonds, 08_Hearts, 08_Spades)

(08_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\08\8_of_clubs.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(08_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\08\8_of_diamonds.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(08_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\08\8_of_hearts.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(08_Spades)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\08\8_of_spades.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)







(choose009)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Sub_points]=[Sub_points]+[9]
@NullResponse @Goto(09_Clubs, 09_Diamonds, 09_Hearts, 09_Spades)

(09_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\09\9_of_clubs.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(09_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\09\9_of_diamonds.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(09_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\09\9_of_hearts.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(09_Spades)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\09\9_of_spades.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)





(choose0010)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Sub_points]=[Sub_points]+[10]
@NullResponse @Goto(010_Clubs, 010_Diamonds, 010_Hearts, 010_Spades)

(010_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\10\10_of_clubs.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(010_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\10\10_of_diamonds.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(010_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\10\10_of_hearts.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(010_Spades)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\10\10_of_spades.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)






(choose00Jack)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Sub_points]=[Sub_points]+[10]
@NullResponse @Goto(011_Clubs, 011_Diamonds, 011_Hearts, 011_Spades)

(011_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\11\jack_of_clubs.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(011_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\11\jack_of_diamonds.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(011_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\11\jack_of_hearts.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(011_Spades)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\11\jack_of_spades.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)





(choose00Queen)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Sub_points]=[Sub_points]+[10]
@NullResponse @Goto(012_Clubs, 012_Diamonds, 012_Hearts, 012_Spades)

(012_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\12\queen_of_clubs.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(012_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\12\queen_of_diamonds.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(012_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\12\queen_of_hearts.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(012_Spades)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\12\queen_of_spades.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)






(choose00King)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Sub_points]=[Sub_points]+[10]
@NullResponse @Goto(013_Clubs, 013_Diamonds, 013_Hearts, 013_Spades)

(013_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\13\king_of_clubs.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(013_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\13\king_of_diamonds.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(013_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\13\king_of_hearts.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)

(013_Spades)
@NullResponse @RapidCodeOn
@NullResponse @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\13\king_of_spades.jpg] @Wait(2) 
@NullResponse @Goto(WhatsNext)










 
(myEnde)
Ende
@End
 
 
 
 
 
@Info BlackJerk 7.0 - Simplified version of BlackJack. Written by: tigrotto. Special thanks to: avatarbr, Daragorn, Stefaf